home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
utility
/
mu17_ext.zip
/
AUTOLOGI.MOD
< prev
next >
Wrap
Text File
|
1994-03-07
|
1KB
|
63 lines
(*
Frank J. Beckamnn (26.10.1993)
AutoLogin - login a user with name "auto"
Usage: Autologin
I have the following linne inn my passwd-file:
auto||1|0|System Autologin|SYS:home/auto|
I use "Autologin" in my User-startup instead of
"Logout gui global".
Then I run a skript with name Login-startup:
Wait 3
Logout GUI GLOBAL
This has the advantage that I don't have to login before
the Workbench and all my tools (screenblanker etc.) in
WBStartup are startet. Then I login into all tasks which
belong to the Workbench. This wouldn't be if I would only
"run login ..." in my User-startup. I hope you understand
what I'm trying to explain.
*)
MODULE AutoLogin;
FROM SYSTEM IMPORT
ADR, TAG, ADDRESS;
FROM InOut IMPORT
WriteCard, WriteLn;
FROM UtilityD IMPORT
TagItem, tagEnd;
FROM MultiUserD IMPORT
muTags;
FROM MultiUserL IMPORT
LoginA;
CONST
version=ADDRESS{ADR("$VER: AutoLogin 39.1 26.10.1993\n")};
VAR
tags: ARRAY [0..3] OF TagItem;
user: LONGCARD;
BEGIN
user:=LoginA(TAG(tags,
muGlobal, -1,
muUserID, ADR("auto"),
muPassword, ADR(""),
tagEnd));
END AutoLogin.